﻿Public Class Accompagnement

    'ID de l'employé
    Private _ID As Integer
    Public Property ID() As Integer
        Get
            Return _ID
        End Get
        Set(ByVal value As Integer)
            _ID = value
        End Set
    End Property

    'Nom de l'employé
    Private _nomEmploye As String
    Public Property NomEmploye() As String
        Get
            Return _nomEmploye
        End Get
        Set(ByVal value As String)
            _nomEmploye = value
        End Set
    End Property

    'Nom du bénéficiaire
    Private _nomBéné As String
    Public Property NomBéné() As String
        Get
            Return _nomBéné
        End Get
        Set(ByVal value As String)
            _nomBéné = value
        End Set
    End Property

    'Date de l'accompagnement
    Private _dateAccom As Date
    Public Property DateAccom() As Date
        Get
            Return _dateAccom
        End Get
        Set(ByVal value As Date)
            _dateAccom = value
        End Set
    End Property

    Public Sub New(ByVal num As Integer, ByVal nomEmp As String, ByVal nomBen As String, ByVal accom As Date)
        ID = num
        NomEmploye = nomEmp
        NomBéné = nomBen
        DateAccom = accom
    End Sub
End Class
